<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("Plant_no") <> "") Then Recordset1__MMColParam = Request.QueryString("Plant_no") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_plant1_STRING Recordset1.Source = "SELECT * FROM plant WHERE Plant_no = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> 植物基本資料 <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
植物名稱

<%=(Recordset1.Fields.Item("Plant_name").Value)%>
-0.jpg" height="300">
科　　名

<%=(Recordset1.Fields.Item("family_name").Value)%>
英文名稱

<%=(Recordset1.Fields.Item("Plant_eng").Value)%>
學　　名

<%=(Recordset1.Fields.Item("scientific").Value)%>
別　　名

<%=(Recordset1.Fields.Item("other_name").Value)%>
分　　布

<%=(Recordset1.Fields.Item("place").Value)%>
特　　性
外　　型

<%=(Recordset1.Fields.Item("look").Value)%>
<%if (Recordset1.Fields.Item("pic1").Value)="1" then%> -1.jpg" width="200" height="150"> <%else%>

<%end if%>
葉　　子

<%=(Recordset1.Fields.Item("leaf").Value)%>
<%if (Recordset1.Fields.Item("pic2").Value)="1" then%> -2.jpg" width="200" height="150"> <%else%>

<%end if%>
花　　朵

<%=(Recordset1.Fields.Item("flower").Value)%>
<%if (Recordset1.Fields.Item("pic3").Value)="1" then%> -3.jpg" width="200" height="150"> <%else%>

<%end if%>
果　　實

<%=(Recordset1.Fields.Item("seed").Value)%>
<%if (Recordset1.Fields.Item("pic4").Value)="1" then%> -4.jpg" width="200" height="150"> <%else%>

<%end if%>
其　　它

<%=(Recordset1.Fields.Item("other").Value)%>
用　　途

<%=(Recordset1.Fields.Item("use").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
<% Recordset1.Close() Set Recordset1 = Nothing %>